﻿Imports System.IO.File
Imports TwitterVB2
Public Class frmAbout
    Public tw As New TwitterAPI
    Dim consumer As String = "3rZoMe2v9ZDq5T1JoyVzyw"
    Dim consumersecret As String = "Za0raOo0mDs0xqgmmGxS1YI7hxUdoPmBnGtfFVHBek"
    Public oauthtoken As String
    Public oauthtokensecret As String
    Dim strPassword As String
    Dim strUserName As String
    Dim oFile As System.IO.File
    Dim oWrite As System.IO.StreamWriter


    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://twitter.com/UnofficialJimmy")
    End Sub

    Private Sub tmrUpdateStats_Tick(sender As System.Object, e As System.EventArgs) Handles tmrUpdateStats.Tick

        On Error Resume Next

        lblLow.Text = tw.RateLimit_RemainingHits
        lblMax.Text = tw.RateLimit_HourlyLimit
        lblReset.Text = tw.RateLimit_Reset

        If lblLow.Text > 300 Then

            lblLow.ForeColor = Color.Orange

        Else

            lblLow.ForeColor = Color.ForestGreen

        End If

    End Sub

End Class